home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / function.arc / FUNC4B.INC < prev    next >
Encoding:
Text File  |  1985-06-15  |  384 b   |  19 lines
  1. { Load and execute a program                                           }
  2.  
  3. FUNCTION Func4B (S1, O1, S2, O2, F : INTEGER) : BOOLEAN;
  4.  BEGIN
  5.   WITH Registers DO
  6.    BEGIN
  7.     AX:=($4B00 OR (F AND $00FF));
  8.     BX:=O2;
  9.     DX:=O1;
  10.     DS:=S1;
  11.     ES:=S2;
  12.     MSDOS (Registers);
  13.     IF (Flags AND $0001)=1 THEN
  14.      Func4B:=TRUE
  15.     ELSE
  16.      Func4B:=FALSE;
  17.    END;
  18.  END;
  19.